home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
United Public Domain Gold 2
/
United Public Domain Gold 2.iso
/
music_utilities
/
pt141.dms
/
pt141.adf
/
ArexxExamples.lha
/
EP_NextPatt.dopus
< prev
next >
Wrap
Text File
|
1993-10-05
|
346b
|
20 lines
/* Eagleplayersteuerung (c) 1993 Henryk Richter */
options results
address 'rexx_EP'
status m pnr
num = result
'status p 'num' jmp'
player = result
if player=="yes" then do
nextpatt
aha=result
address 'DOPUS.1'
toptext 'Eagleplayer: '||aha
end
else do
address 'DOPUS.1'
toptext 'Eagleplayer: Patternjump Impossible'
end
exit